"0","```r
plotCols <- c(\"black\", \"blue\",  \"green\", \"red\")
plot(H~ages, type=\"l\", ylim=c(0, 2), xlim=c(21000, 0), xlab=\"Age (cal BP)\", ylab=\"Richness\", col=plotCols[1])
lines(Simp~ages, col=plotCols[2])
```"
"0","```r
lines(Shan_even~ages, col=plotCols[3], lty=2)
lines(Simp_even~ages, col=plotCols[4], lty=2)
```"
"0","```r
legend(\"bottomleft\", legend=c(\"Shannon\", \"Simpson\", \"Evenness_Shannon\", \"Evenness_Simpson\"), lty=c(1,1,2,2), col=plotCols, bty=\"n\", cex=0.75)
```"
